home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / DATABASE / FOXRYAN.ZIP / VERIFY.PRG < prev    next >
Text File  |  1993-07-05  |  2KB  |  66 lines
  1. for m.i = 1 to 22
  2.     m.form = "form" + alltrim(str(m.i))
  3.     m.dbfile = m.form + ".dbf"
  4.     for m.j = 0 to 13
  5.         m.letter = iif(m.j = 0, "", chr(m.j-1+asc("A")))
  6.         m.scrfile = m.form +  alltrim(m.letter) + ".scx"
  7.         ?m.scrfile
  8.         select 0
  9.         if not file(m.scrfile)
  10.             exit
  11.         endif
  12.         use &scrfile alias screen
  13.         go top
  14.         locate for screen.objtype=15 or screen.objtype=2
  15.         do while not eof()
  16.             if inkey()=27
  17.                 suspend
  18.             endif
  19.             delete file temp.tmp
  20.             copy memo screen.name to temp.tmp
  21.             m.fp = fopen("temp.tmp", 0)
  22.             m.str = fread(m.fp, 100)
  23.             =fclose (m.fp)
  24.             if "FORM" $ upper(m.str)
  25.                 if substr(m.str, 7, 1) = "."
  26.                 * form13.q12   form13.q1
  27.                 * 123456789A   123456789
  28.                     m.outstr = m.form + substr(m.str, 7, len(m.str)-6)
  29.                 else
  30.                 * form1.q12   form1.q1
  31.                 * 123456789   12345678
  32.                     m.outstr = m.form + substr(m.str, 6, len(m.str)-5)
  33.                 endif
  34.                 m.fp = fopen("temp.tmp", 1)
  35.                 =fwrite(m.fp, iif(screen.objtype=2, upper(m.outstr), m.outstr))
  36.                 =fclose(m.fp)
  37.                 append memo screen.name from temp.tmp overwrite
  38.             endif
  39.             continue
  40.             delete file temp.tmp
  41.             copy memo screen.expr to temp.tmp
  42.             m.fp = fopen("temp.tmp", 0)
  43.             m.str = fread(m.fp, 100)
  44.             =fclose (m.fp)
  45.             if "FORM" $ upper(m.str)
  46.                 if substr(m.str, 7, 1) = "."
  47.                 * form13.q12   form13.q1
  48.                 * 123456789A   123456789
  49.                     m.outstr = m.form + substr(m.str, 7, len(m.str)-6)
  50.                 else
  51.                 * form1.q12   form1.q1
  52.                 * 123456789   12345678
  53.                     m.outstr = m.form + substr(m.str, 6, len(m.str)-5)
  54.                 endif
  55.                 m.fp = fopen("temp.tmp", 1)
  56.                 =fwrite(m.fp, m.outstr)
  57.                 =fclose(m.fp)
  58.                 append memo screen.name from temp.tmp overwrite
  59.             endif
  60. *            locate for screen.objtype=13 or screen.objtype=15
  61.             continue
  62.         enddo
  63.         use
  64.     endfor
  65. endfor
  66.